home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / gensize.bas < prev    next >
BASIC Source File  |  1990-10-14  |  6KB  |  129 lines
  1. 10    PRINT"AC GENERATOR SIZE PROGRAM"
  2. 20    PRINT"  FOR RADIO/TV STATIONS
  3. 30    PRINT"230 VOLTS ASSUMED....YOU
  4. 40    PRINT"SHOULD ADJUST WHERE NECE-"
  5. 50    PRINT"SSARY FOR 115 VOLT CIRCUITS."
  6. 60    ALL1=0:ALL3=0:MOTOR1=0:MOTOR3=0:RESULT=0:START=0:L=0
  7. 70    PRINT
  8. 80    PRINT
  9. 90    INPUT" 1 OR 3 PHASE AC LOAD";PHASE:IF PHASE =0 THEN GOTO 90
  10. 100   IF PHASE =2 THEN GOTO 90
  11. 110   IF PHASE >= 4 THEN GOTO 90
  12. 120   INPUT"TOTAL LOAD (V TIMES A) LESS MOTORS";L
  13. 130   INPUT"TOTAL MOTOR HORSEPOWER (SINGLE PHASE)";MOTOR1
  14. 140   IF PHASE=1 THEN GOTO 170
  15. 150   INPUT"TOTAL MOTOR HORSEPOWER (3 PHASE)";MOTOR3
  16. 160   IF MOTOR1 = 0 THEN RESULT1=0:GOTO 340
  17. 170   IF MOTOR1 <= .16 THEN RESULT1=2.2: GOTO 340
  18. 180   IF MOTOR1 <= .25 THEN RESULT1=2.9: GOTO 340
  19. 190   IF MOTOR1 <= .33 THEN RESULT1=3.6: GOTO 340
  20. 200   IF MOTOR1 <= .5 THEN RESULT1=4.9: GOTO 340
  21. 210   IF MOTOR1 <= .75 THEN RESULT1=6.9: GOTO 340
  22. 220   IF MOTOR1 <= 1.0 THEN RESULT1=8.0: GOTO 340
  23. 230   IF MOTOR1 <= 1.5 THEN RESULT1=10: GOTO 340
  24. 240   IF MOTOR1 <= 2.0 THEN RESULT1=12: GOTO 340
  25. 250   IF MOTOR1 <= 3.0 THEN RESULT1=17: GOTO 340
  26. 260   IF MOTOR1 <= 5.0 THEN RESULT1=28: GOTO 340
  27. 270   IF MOTOR1 <= 7.5 THEN RESULT1=40: GOTO 340
  28. 280   IF MOTOR1 <= 10  THEN RESULT1=50: GOTO 340
  29. 290   IF MOTOR1 > 10 THEN GOTO 1000
  30. 300   REM
  31. 310   REM
  32. 320   REM
  33. 330   IF MOTOR3 = 0 THEN RESULT3=0:GOTO 550
  34. 340   IF MOTOR3<= .5 THEN RESULT3=2.0: GOTO 550
  35. 350   IF MOTOR3<= .75 THEN RESULT3=2.8: GOTO 550
  36. 360   IF MOTOR3<= 1.0 THEN RESULT3=3.6: GOTO 550
  37. 370   IF MOTOR3<= 1.5 THEN RESULT3=5.2: GOTO 550
  38. 380   IF MOTOR3<= 2.0 THEN RESULT3=6.8: GOTO 550
  39. 390   IF MOTOR3<= 3.0 THEN RESULT3=9.6: GOTO 550
  40. 400   IF MOTOR3<= 5.0 THEN RESULT3=15.2: GOTO 550
  41. 410   IF MOTOR3<= 7.5 THEN RESULT3=22: GOTO 550
  42. 420   IF MOTOR3<= 10  THEN RESULT3=28: GOTO 550
  43. 430   IF MOTOR3<= 15  THEN RESULT3=42: GOTO 550
  44. 440   IF MOTOR3<= 20  THEN RESULT3=54: GOTO 550
  45. 450   IF MOTOR3<= 25  THEN RESULT3=68: GOTO 550
  46. 460   IF MOTOR3<= 30  THEN RESULT3=80:GOTO 550
  47. 470   IF MOTOR3<= 40  THEN RESULT3=104: GOTO 550
  48. 480   IF MOTOR3<= 50  THEN RESULT3=130: GOTO 550
  49. 490   IF MOTOR3<= 60  THEN RESULT3=154: GOTO 550
  50. 500   IF MOTOR3<= 75  THEN RESULT3=192: GOTO 550
  51. 510   IF MOTOR3<= 100 THEN RESULT3=248:GOTO 550
  52. 520   IF MOTOR3 >100 THEN GOTO 1000
  53. 550   RESULT1=RESULT1*230
  54. 555   RESULT3=RESULT3*230
  55. 559   IF PHASE = 3 GOTO 600
  56. 560   REM SINGLE PHASE GEN SETS
  57. 570   ALL1=(L/1000)+(RESULT1/1000)
  58. 580   PRINT"TOTAL LOAD IS ";ALL1;" KW"
  59. 590   GOTO 620
  60. 600   ALL3=(L*SQR(3)/1000)+(RESULT3/1000)+(RESULT1/1000)
  61. 610   PRINT"TOTAL 3-PHASE LOAD IS ";ALL3;" KW"
  62. 620   PRINT
  63. 630   IF MOTOR1=0 THEN START=0:GOTO 730
  64. 640   IF MOTOR3=0 THEN START=START+0
  65. 650   IF MOTOR1 =1 THEN START=5.9
  66. 660   IF MOTOR1 >1 AND MOTOR1 <3 THEN START=11.9:GOTO 730
  67. 670   IF MOTOR1 >2 AND MOTOR1 <5 THEN START=17.9:GOTO 730
  68. 680   IF MOTOR1 >5 AND MOTOR1 <7.5 THEN START=29.8:GOTO 730
  69. 690   IF MOTOR1 >7.5 AND MOTOR1 <10 THEN START=44.6:GOTO 730
  70. 700   IF MOTOR1 =10 THEN START=59.5
  71. 710   IF MOTOR1 > 10 THEN GOTO 980
  72. 720   REM
  73. 730   IF MOTOR3 =1 THEN START=START+5.9:GOTO 910
  74. 740   IF MOTOR3 >1 AND MOTOR3 <3 THEN START=START+11.9:GOTO 910
  75. 750   IF MOTOR3 >3 AND MOTOR3 <5 THEN START=START+17.9:GOTO 910
  76. 760   IF MOTOR3 >5 AND MOTOR3 <7.5 THEN START=START+29.8:GOTO 910
  77. 770   IF MOTOR3 >7.5 AND MOTOR3 <10 THEN START=START+44.6:GOTO 910
  78. 780   IF MOTOR3 >10 AND MOTOR3 <15 THEN START=START+59.5:GOTO 910
  79. 790   IF MOTOR3 >15 AND MOTOR3 <20 THEN START=START+89.2:GOTO 910
  80. 800   IF MOTOR3 >20 AND MOTOR3 <25 THEN START=START+119:GOTO 910
  81. 810   IF MOTOR3 >25 AND MOTOR3 <30 THEN START=START+149:GOTO 910
  82. 820   IF MOTOR3 >30 AND MOTOR3 <40 THEN START=START+179:GOTO 910
  83. 830   IF MOTOR3 >40 AND MOTOR3 <50 THEN START=START+238:GOTO 910
  84. 840   IF MOTOR3 >50 AND MOTOR3 <60 THEN START=START+298:GOTO 910
  85. 850   IF MOTOR3 >60 AND MOTOR3 <75 THEN START=START+357:GOTO 910
  86. 860   IF MOTOR3 >75 AND MOTOR3 <100 THEN START=START+446:GOTO 910
  87. 870   IF MOTOR3 =100 THEN START=START+595
  88. 880   IF MOTOR3 > 100 THEN GOTO 1000
  89. 890   GOTO 910
  90. 900   REM
  91. 910   RUSH=((START*230)+L)/1000
  92. 920   IF ALL1=0 GOTO 940
  93. 930   IF RUSH > 1.25*ALL1 GOTO 970
  94. 940   IF ALL3=0 GOTO 960
  95. 950   IF RUSH > 1.25*ALL3 GOTO 970
  96. 960   GOTO 980
  97. 970   PRINT"STEP-STARTING YOUR LOAD REQUIRED"
  98. 980   INPUT "ANOTHER SET";A$:A$=LEFT$(A$,1):IF A$="N" THEN END
  99. 990   GOTO 10
  100. 1000  PRINT"FATAL ERROR - HAND FIGURE OR CHECK INPUT DATA."
  101. 1010  REM MOTOR STARTING BASED ON ELECTRICAL CODE G,
  102. 1020  REM IF OTHER VALUES REQUIRED BY LOCAL CODE, CHANGE
  103. 1030  REM LINES 700 TO 850
  104. 1040  REM
  105. 1050  REM SINGLE PHASE LOAD IS KW= VOLTS * AMPS / 1000
  106. 1060  REM 3-PHASE LOAD IS KW= VOLTS * AMPS * SQUR(3)/1000
  107. 1070  REM DO NOT ADD AMPS FOR ALL 3 PHASE, PICK ONE
  108. 1080  REM POWER FACTOR= WATTS/ VOLTS * AMPS
  109. 1090  REM 3-PHASE KW= V * A * PF * SQR(3) /1000
  110. 1100  REM 3-PHASE VA= V * A * SQR(3)
  111. 1110  REM 3-PHASE AMPS= 746 * HORSEPOWER / SQR(3)*EFFCY*PF
  112. 1120  REM SINGLE PHASE KW= V*A*PF/1000
  113. 1130  REM SINGEL PHASE AMPS= 746*HORSEPOWER/V*EFFCY*PF
  114. 1140  REM HORSEPOWER= KW/.746 * EFFECY
  115. 1150  REM KW=MOTOR HORSEPOWER * .746/MOTOR EFFCY
  116. 1160  REM GEN HORSEPOWER=GENERATOR KW * 1.5
  117. 1170  REM BASED ON 90% RULE OF THUMB
  118. 1180  REM USE LINES 1320 & 1300 AS INPUT STATEMENTS AND
  119. 1190  REM DELETE THE LINES 140-260 & 300-480 IF YOU KNOW
  120. 1200  REM YOUR MOTOR POWER FACTOR AND EFFIENCY
  121. 1210  REM CAN BE REDUCED CONSIDERABLY.
  122. 1220  REM 3 PHASE POWER FACTOR IS NOT CONSIDERED
  123. 1230  REM IF UNDER 85 OR SO, DO FIGURES BY HAND
  124. 1240  REM BY BOB GROOME
  125. 1250  REM    ALLIED
  126. 1260  REM    PO BOX 1487
  127. 1270  REM    RICHMOND, IN 47375
  128. 1280  REM    317/962-8596
  129. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$